home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / cltthngs.lha / TAE_1_20.LHA / Rexx / TAE.trans next >
Text File  |  1996-02-13  |  7KB  |  23 lines
  1. /* 
  2.  
  3. $VER: TransAmiga Everything! v1.20 by Neil Barrett
  4.    
  5.    TransAmiga Everything! -
  6.    Displays over 45 (!) pieces of information
  7.    about the system and user!
  8.    Version 1.20 Released 15.02.1996 
  9.    Written by Neil Barrett
  10.    Official TransAmiga Registration/Testing/Support BBS in the UK:
  11.    Gateway BBS + 44 (0)1375 393816
  12.  
  13. If you use and like this program, please send
  14. me a netmail to 2:257/99.0@fidonet letting me know what you
  15. think of it, and of any bugs you find or suggestions
  16. you have for improvement.
  17.  
  18. Please register TransAmiga software if you have not already done so!
  19.  
  20. Enjoy!
  21.  
  22. */
  23. options results;textdir='BBS:Text/';ESC='1B'X;clr=ESC||'[0m';bld=ESC||'[1m';print "TransAmiga Everything! by Neil Barrett at Gateway BBS";print "Just getting your details from the files, please wait";send '[.'clr;USERINFO a;username=result;send '.'clr;USERINFO 8;userstre=result;send '.'clr;USERINFO b;usercity=result;send '.'clr;USERINFO 9;userpost=result;send '.'clr;USERINFO e;userphon=result;send '.'clr;SYSTEMINFO j;systdate=result;send '.'clr;SYSTEMINFO i;systtime=result;send '.'clr;USERINFO ?;usernumb=result;send '.'clr;SYSTEMINFO a;systcall=result;send '.'clr;USERINFO p;usertime=result;send '.'clr;SYSTEMINFO r;systbaud=result;send '.'clr;USERINFO f;userlast=result;if userlast="RESULT" then;do;userlast="Never!";end;send '.'clr;USERINFO u;usertima=result;send '.'clr;SYSTEMINFO q;systtimb=result;send '.'clr;SYSTEMINFO m;systtimc=result;send '.'clr;USERINFO d;usercomp=result;send '.'clr;SYSTEMINFO c;systtotm=result;send '.'clr;USERINFO 4;usermsgr=result;send '.'clr;USERINFO m;usermsgp=result;send '.'clr;USERINFO I;userprot=result;send '.'clr;USERINFO '%';userprom=result;send '.'clr;SYSTEMINFO b;systlast=result;send '.'clr;SYSTEMINFO 3;systonel=result;send '.'clr;SYSTEMINFO h;systhuno=result;USERINFO x;useransi=result;send '.'clr;USERINFO '=';userripg=result;send '.'clr;USERINFO 2;userhotk=result;send '.'clr;USERINFO 0;userfull=result;send '.'clr;USERINFO 1;usermenu=result;send '.'clr;USERINFO 3;userhand=result;send '.'clr;USERINFO v;userscrl=result;send '.'clr;BBSIDENTIFY NAME;bbsbname=result;send '.'clr;BBSIDENTIFY SYSOP;bbssysop=result;send '.'clr;USERINFO o;useracce=result;send '.'clr;USERINFO g;userflag=result;send '.'clr;USERINFO q;useruplf=result;send '.'clr;USERINFO r;useruplk=result;send '.'clr;USERINFO s;userdowf=result;send '.'clr;USERINFO t;userdowk=result;systacpu=systcall/systhuno;send '.'clr;USERINFO 7;userratf=result;send '.'clr;USERINFO '$';userratk=result;send '.'clr;USERINFO Z;userbeff=result;send '.'clr;USERINFO '!';userbefk=result;print '] Done.';cls;sendfile textdir||'TAE';if upper(userhand)='RESULT' then;do;userhand='No Handle Chosen';end;userinfo 'x';ansiflag=result;if ansiflag='ON' then;do;fsh=ESC||'[5m';BRIGHT=ESC||'[1m';NOANSI=ESC||'[0m';UP2='[2A';f0=ESC||'[30m';b0=ESC||'[40m';f1=ESC||'[31m';b1=ESC||'[41m';f2=ESC||'[32m';b2=ESC||'[42m';f3=ESC||'[33m';b3=ESC||'[43m';f4=ESC||'[34m';b4=ESC||'[44m';f5=ESC||'[35m';b5=ESC||'[45m';f6=ESC||'[36m';b6=ESC||'[46m';f7=ESC||'[37m';b7=ESC||'[47m';transmit f3||BRIGHT||ESC||'[3;11H'||username||ESC||'[4;11H'||left(userstre,28)||ESC||'[5;11H'||left(usercity,28)||ESC||'[6;11H'||userpost||ESC||'[7;16H'||left(userphon,24)||ESC||'[3;47H'||systdate||ESC||'[3;67H'||systtime;transmit ESC||'[4;50H'||usernumb||ESC||'[4;55H'||systhuno||ESC||'[4;67H'||systcall;transmit ESC||'[5;55H'||usertime||ESC||'[5;67H'||systbaud||ESC||'[6;64H'||userlast||ESC||'[7;47H'||usertima||ESC||'[7;51H'||systtimb||ESC||'[7;56H'||systtimc;transmit ESC||'[9;15H'||left(usercomp,24)||ESC||'[8;65H'||systtotm||ESC||'[16;21H'||usermsgr||ESC||'[9;65H'||usermsgp||ESC||'[10;65H'||systacpu||ESC||'[11;12H'||userprot||ESC||'[11;16H'||left(userprom,24)||ESC||'[11;54H'||systlast;transmit ESC||'[13;14H'||left(systonel,65)||ESC||'[15;8H'||useransi||ESC||'[15;17H'||userripg||ESC||'[15;30H'||userhotk||ESC||'[15;43H'||userfull||ESC||'[15;57H'||usermenu||ESC||'[15;75H'||userscrl||ESC||'[8;11H'||left(userhand,20);transmit f6||BRIGHT||ESC||'[16;40H'||left(bbsbname,14)||ESC||'[16;57H'||left(bbssysop,21)||f3||BRIGHT||ESC||'[18;56H'||useruplf||ESC||'[18;67H'||useruplk||ESC||'[19;56H'||userdowf||ESC||'[19;67H'||userdowk||ESC||'[20;56H'||userratf;transmit ESC||'[20;67H'||userratk||ESC||'[22;56H'||userbeff||ESC||'[22;67H'||userbefk;userflag.1=left(userflag,1);userflag.2=substr(userflag,2,1);userflag.3=substr(userflag,3,1);userflag.4=substr(userflag,4,1);userflag.5=substr(userflag,5,1);userflag.6=substr(userflag,6,1);userflag.7=substr(userflag,7,1);userflag.8=substr(userflag,8,1);transmit ESC||'[22;23H'||userflag.1||ESC||'[22;25H'||userflag.2||ESC||'[22;27H'||userflag.3||ESC||'[22;29H'||userflag.4||ESC||'[22;31H'||userflag.5||ESC||'[22;33H'||userflag.6||ESC||'[22;35H'||userflag.7||ESC||'[22;37H'||userflag.8;stugillibrand=1;useracce.bar='*';do while stugillibrand<useracce/10;useracce.bar=useracce.bar||'*';stugillibrand=stugillibrand+1;end;if useracce=255 then;do;useracce.bar=useracce.bar||'*';end;transmit ESC||'[21;3H'||f1||BRIGHT||useracce.bar;transmit ESC||'[20;37H'||useracce||ESC||'[23;1H'||NOANSI||'';end;else;do;transmit '    Name: '||username;transmit '  Handle: '||userhand;transmit ' Address: '||userstre;transmit '        : '||usercity;transmit 'Postcode: '||userpost;transmit '   Phone: '||userphon;transmit 'Computer: '||usercomp;transmit '';transmit '      The Date: '||systdate;transmit '      The Time: '||systtime;transmit '       User No: '||usernumb||'/'||systhuno;transmit '     Caller No: '||systcall;transmit '  Times Called: '||usertime;transmit '     Baud Rate: '||systbaud;transmit 'Your Last Call: '||userlast;transmit '          Time: Used '||usertima||'/'||systtimb||', '||systtimc||' remaining';transmit '';transmit 'Total Messages In System: '||systtotm;transmit '       Message Read Mode: '||usermsgr;transmit '  Messages Posted By You: '||usermsgp;transmit '';continue;cls;sendfile textdir||'TAE';transmit '  Protocol: '||userprot||', '||userprom;transmit '';transmit ' Average Calls Per User: '||systacpu;transmit '';transmit ' Last Caller: '||systlast;transmit '  Last Quote: '||systonel;transmit '';transmit ' Settings: ANSI '||useransi||', RIP '||userripg||', Hotkeys '||userhotk||', Full Screen Ed '||userfull;transmit '         : MenuMode '||usermenu||', Screen Length (lines) '||userscrl||'.';transmit '';transmit ' Your Access Level: '||useracce||', and your Flags: '||userflag;transmit '';transmit ' Youve uploaded '||useruplf||' files, '||useruplk||' KB, and downloaded '||userdowf||' files, '||userdowk||' bytes.';transmit ' Your ratio is 1:'||userratf||' files and 1:'||userratk||' KB and you may download '||userbeff||' files, '||userbefk||' KB before U/L.';transmit '';transmit ' Sysop of: '||bbsbname||' : '||bbssysop;end;continue;exit